plot(PC1 ~ PC2, data=loadings, main="PCA Analysis",pch=10,xlab="PC1",ylab="PC2",col="blue",font=10)  
text( PC1 ~ PC2, data=loadings, labels=row.names(loadings), col="red", font=1)